home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 62
/
062.d81
/
cubik boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
58 lines
110 c$="[150][158][150][158]":x=7:printchr$(142):printchr$(8)
120 poke53280,.:poke53281,.:poke198,.
130 goto330
140 :
150 print""spc(12)left$(c$,x)" [146][184]"
160 printspc(12)left$(c$,x)" [146] "
170 printspc(12)left$(c$,x)" [146][162]"
180 print""spc(15)left$(c$,x+1)" [146] "
190 printspc(15)left$(c$,x+1)" [146] "
200 printspc(15)left$(c$,x+1)" [146][162] "
210 print""spc(19)left$(c$,x+2)" [146][184][161]"
220 printspc(19)left$(c$,x+2)" [146][184][161]"
230 printspc(19)left$(c$,x+2)" [146][162][161]"
240 print""spc(23)left$(c$,x+3)" "
250 printspc(23)left$(c$,x+3)" "
260 printspc(23)left$(c$,x+3)" "
270 print""spc(25)left$(c$,x+4)" [146] [169] "
280 printspc(25)left$(c$,x+4)" [146] "
290 printspc(25)left$(c$,x+4)" [146] [223][146] [144]"
300 x=x-1:ifx=1thenx=7
310 fort=1to500:next:return
320 :
330 print"[147][159]"tab(11)"copyright 1989 by
340 [153][163]7)"ortantantantantantantantantantantantantantantantantantantantantantantantantan^"
350 [153][163]7)"(NULL) pierre bergeron (NULL)"
360 [153][163]7)"(NULL) real bergeron et (NULL)"
370 [153][163]7)"(NULL) renaud bergeron (NULL)"
380 [153][163]7)"/tantantantantantantantantantantantantantantantantantantantantantantantantanexp"
390 [153]" poke="
400 [153]" do you want poke(NULL) voulez-vous les"
410 [153]" prompts poke(NULL) instructions"
420 [153]" in poke(NULL) en"
430 [153]" english ? poke(NULL) francais ?"
440 [153]" poke(NULL)"
450 [153]" pokepress (NULL) enfoncez
460 print" [152][213][192][201][146] [151][221] [152][213][192][201]"
470 print" [152][221]e[221][146] [151][221] [152][221]f[221]"
480 print" [152][202][192][203][146] [151][221] [152][202][192][203]"
490 print" [151][177]"
500 :
510 geta$
520 ifa$="f"thenpoke53247,2:print"[147]":gosub150:goto570
530 ifa$="e"thenpoke53247,1:print"[147]":gosub150:goto580
540 ifa$<>"f"ora$<>"e"thengosub150
550 goto510
560 :
570 poke214,20:print:print" un moment, s'il vous plait...":goto600
580 poke214,20:print:print" one moment, please..."
590 :
600 sys57812"c000.data",8,0:poke780,.:poke781,.:poke782,192:sys65493
610 print"[144]poke44,32:poke43,1
620 [153]"load"[199](34)"cu.font1"[199](34)",8,1"
630 [153]"poke8192,0:poke53272,19:load"[199](34)"cubik"[199](34)",8"
640 [153]"run"
650 [151]631,13:[151]632,13:[151]633,13:[151]634,13:[151]198,4
660 [128]
10000 [159]15,8,15,"s0:cubik boot":[160]15:[148]"cubik boot",8:[128]